[求助]求一道简单编程题的代码（要求用SUb子过程）！

来源：百度知道 编辑：UC知道 时间：2024/04/30 14:34:31
题目：随机产生5个一维数组，“用此数组作参数“，求数组中所有偶数之和

必须用到SUB过程， 也就是说再求另一个数组，也能求出！
是含有5个元素的一维数组

5个一维数组？是含有5个元素的一维数组吧？代码如下：

Private Sub OddSum(Arr() As Integer)
Dim I As Integer
Dim Sum As Integer

Sum = 0
For I = 1 To 5
If Arr(I) Mod 2 = 0 Then Sum = Sum + Arr(I)
Next I

Me.Print "计算结果为：" & Sum
End Sub

Private Sub Command1_Click()
Dim A(5) As Integer
Dim I As Integer

Me.Print "数组元素为：";
For I = 1 To 5
A(I) = Int(Rnd * 100)
Me.Print A(I);
Next I
Me.Print

OddSum A()
End Sub